COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002		COMMON /VV/Q(19),R(19),KL,N1,N2,N3,J,K,L,M,P1,PX,A,B,C,D,BL
C00006 ENDMK
C⊗;
	COMMON /VV/Q(19),R(19),KL,N1,N2,N3,J,K,L,M,P1,PX,A,B,C,D,BL
	DATA BL/'     '/
	TYPE 24
200	TYPE 20
	ACCEPT 2,N1
	IF(N1.EQ.' ')GO TO 200
201	TYPE 22
	ACCEPT 2,N2
	IF(N2.EQ.' ')GO TO 201
202	TYPE 23
	ACCEPT 2,N3
	IF(N3.EQ.' ')GO TO 202
	CALL OFILE(1,N3)
	CALL IFILE(21,N1)
	CALL IFILE(22,N2)
	DO 1 K=1,3
	READ(21,2)Q
	WRITE(1,2)Q
1	READ(22,2)Q
C READS FIRST 3 LINES
	
	CALL CHECK(N,Q,P1,21)
	CALL CHECK(M,R,PX,22)
CATCHES INSERTED LINES.
	TYPE 25
25	FORMAT(' WORKING')
6	IF(PX.LT.P1)GO TO 5
	CALL RDWRT(N,P1,Q,21)
	IF(KL)10,6,6

5	CALL RDWRT(M,PX,R,22)
	IF(KL.EQ.0)GO TO 6

11	PX=10000
	GO TO 13
10	P1=10000
13	IF(P1.NE.10000.AND.M.NE.N)GO TO 6
12	WRITE(1,7)
	END FILE 1
	TYPE 203,N3
	CALL EXIT
203	FORMAT(' ****** FILE NAME = ',A5,'.DAT')
2	FORMAT(19A5)
7	FORMAT(' FINISH;')
24	FORMAT(' MIXES SCORE LISTS.'/
	1' USES ".DAT" EXTENSIONS ONLY!!! '/
	1' BE SURE ALL HIGHER PARAMS PRINT EACH TIME.')
20	FORMAT(' TYPE FILE 1 (WITHOUT EXT.)   '$)
22	FORMAT(' TYPE FILE 2  '$)
23	FORMAT(' TYPE OUTPUT NAME  '$)
	END

	SUBROUTINE CHECK(N,Q,P1,J)
	COMMON /VV/QQ(19),RR(19),KL,N1,N2,N3,JJ,KK,L,M,P,PX,LL,K,BL
	COMMON /QZ/QZ(72)
	DATA BL/'     '/
	DIMENSION Q(19),AA(50)
	KL=0
33	READ(J,30,END=100)L,N,K,Q,AA
	ENCODE(72,30,QZ)QZ
	IF(Q(5).NE.' ')GO TO 32
	IF(Q(10).NE.'.')GO TO 32
	IF(Q(19).EQ.'.')GO TO 31
CATCHES INSERTED LINES.
CG32	REREAD 44,L,N,Q

	IF(N.EQ.'FINIS')KL=-1
	CALL SHORT(Q,K)
	TYPE 44,L,N,(Q(LL),LL=1,K)
	IF(KL)RETURN
	WRITE(1,44)L,N,(Q(LL),LL=1,K),BL
	GO TO 33
100	PAUSE 'CHECK'
31	REREAD 4,L,N,P1
	REREAD 44,L,N,Q
30	FORMAT(72A1)
4	FORMAT(A1,A5,F)
44	FORMAT(A1,20A5)
	END

	SUBROUTINE SHORT(Q,K)
	DIMENSION Q(1)
	K=19
	DO 1 K=19,1,-1
1	IF(Q(K).NE.' ')RETURN
	END

	SUBROUTINE RDWRT(I,P,R,J)
	COMMON /VV/Q(19),RR(19),KL,N1,N2,N3,JJ,KK,L,M,P1,PX,LL,K,BL
	DIMENSION R(19)
	CALL SHORT(R,K)
	WRITE(1,44)L,I,(R(N),N=1,K),BL
	TYPE 44,L,I,(R(N),N=1,K)
1	READ (J,44,END=100)L,I,R
	CALL SHORT(R,K)
	WRITE(1,44)L,I,(R(N),N=1,K),BL
	TYPE 44,L,I,(R(N),N=1,K)
	IF(I.NE.'PRINT')GO TO 1 
2	CALL CHECK(I,R,P,J)
	RETURN
44	FORMAT(A1,20A5)
100	PAUSE 'RDWRT'
	END